home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Internal_79_prep July.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  1.4 KB  |  63 lines
  1. global gCurrProfile, gUpgradeSet, gLevel, gNextLevel
  2.  
  3. on prepareFrame me
  4.   gUpgradeSet = 1
  5.   nextLev = 0
  6.   gNextLevel = 40
  7.   repeat with b = 1 to 40
  8.     if gCurrProfile.DayPassed[b] = 0 then
  9.       gNextLevel = b
  10.       exit repeat
  11.     end if
  12.   end repeat
  13.   repeat with b = 1 to 20
  14.     if b = 5 then
  15.       sprite(78).visible = 0
  16.     else
  17.       if b = 10 then
  18.         sprite(79).visible = 0
  19.       else
  20.         if b = 15 then
  21.           sprite(80).visible = 0
  22.         else
  23.           if b = 20 then
  24.             sprite(81).visible = 0
  25.           end if
  26.         end if
  27.       end if
  28.     end if
  29.     if gCurrProfile.DayPassed[b] then
  30.       sprite(b + 44).visible = 1
  31.       sprite(b + 44).memberNum = gCurrProfile.DayStars[b] + 100
  32.       sprite(b + 9).visible = 1
  33.       sprite(b + 44).blend = 100
  34.       next repeat
  35.     end if
  36.     nextLev = b
  37.     gLevel = nextLev
  38.     if gLevel < 11 then
  39.       gUpgradeSet = 1
  40.     else
  41.       gUpgradeSet = 2
  42.     end if
  43.     sprite(nextLev + 9).visible = 1
  44.     sprite(4).loc = sprite(nextLev + 9).loc
  45.     sprite(4).visible = 1
  46.     if gNextLevel < 21 then
  47.       sprite(75).loc = sprite(4).loc
  48.       sprite(75).visible = 1
  49.     end if
  50.     exit repeat
  51.   end repeat
  52.   if nextLev = 0 then
  53.     if gLevel = 0 then
  54.     else
  55.     end if
  56.   end if
  57.   if gCurrProfile.ShowHelp[16] = 0 then
  58.     gCurrProfile.ShowHelp[16] = 1
  59.     SaveProfile()
  60.     sendSprite(771, #show)
  61.   end if
  62. end
  63.